* lisp/progmodes/compile.el (compilation-parse-errors): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f99a6f272a8df1b0df878a205abd377aa265dc61..17532a58902e890641cfb0297ea7d2ebb1ea2864 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-07  Glenn Morris  <rgm@gnu.org>
+
+       * progmodes/compile.el (compilation-parse-errors):
+       Fix typo.  (Bug#13369)
+
 2013-01-07  Vitalie Spinu  <spinuvit@gmail.com>  (tiny change)
 
        * comint.el (comint-send-input): Check size of buffer before

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9fffeaaabe2c575be440d11a1c0a20791023f76b..f383e02bc7fce6e339f3d1474ed4ecb56c98f0b2 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1280,7 +1280,7 @@ to `compilation-error-regexp-alist' if RULES is nil."
       ;; whether or not omake's own error messages are recognized.
       (cond
        ((not (memq 'omake compilation-error-regexp-alist)) nil)
-       ((string-match "\\`\\([^^]\\|^\\( \\*\\|\\[\\)\\)" pat)
+       ((string-match "\\`\\([^^]\\|\\^\\( \\*\\|\\[\\)\\)" pat)
         nil) ;; Not anchored or anchored but already allows empty spaces.
        (t (setq pat (concat "^ *" (substring pat 1)))))